home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 10 / The PC-Sig Library - Shareware for the IBM PC and Compatibles (PC-SIG)(Tenth Edition Disks 1-2804)(1991).iso / PC_SIGCD / 03 / 8 / DISK0386.ZIP / LEGU.FOR < prev    next >
Text File  |  1985-05-02  |  976b  |  38 lines
  1. $STORAGE: 4
  2. $DO66
  3.       SUBROUTINE LEGU(N)
  4. C                       PRINTS THE INITIAL PART OF UPPER-CASE 'B','D',
  5. C     'E','F','H','I','K','L','M','N','P' AND 'R';    M,N: N=4
  6. C                                                  OTHERS: N=7
  7. C
  8.       DIMENSION KS(16)
  9.       COMMON /LINES/ LINE(132),LINEX(132)
  10.     CHARACTER*1 LINE,LINEX
  11. 61    FORMAT(1X,132A1)
  12. 62    FORMAT(1H+,132A1)
  13.       DATA KS/7,8,72,73,8,9,71,72,9,10,70,71,10,13,67,70/
  14.       CALL BAXX(1,1)
  15.       CALL FRNT(0,6)
  16.       CALL FRNT(74,80)
  17.       DO 10 I=1,3
  18.       WRITE(2,61) LINE
  19. 10    WRITE(2,62) LINEX
  20.       CALL FRNT(6,7)
  21.       CALL FRNT(73,74)
  22.       DO 20 I=1,3
  23.       WRITE(2,61) LINE
  24. 20    WRITE(2,62) LINEX
  25.       DO 30 I=1,4
  26.       K = 4*(I-1) + 1
  27.       CALL FRNT(KS(K),KS(K+1))
  28.       CALL FRNT(KS(K+2),KS(K+3))
  29.       WRITE(2,61) LINE
  30. 30    WRITE(2,62) LINEX
  31.       CALL FRNT(13,67)
  32.       DO 40 I=1,N
  33.       WRITE(2,61) LINE
  34. 40    WRITE(2,62) LINEX
  35.       RETURN
  36.       END
  37.  
  38.